﻿Imports Cosmos.IL2CPU.Plugs
Imports System.Globalization

<Plug(Target:=GetType(Global.Microsoft.VisualBasic.Strings))>
Public Class StringImpl

	Shared Function LCase(ByVal c As Char) As Char
		Dim resultado As Char = c

		'If Char.IsUpper(c) Then

		Dim _asc As Integer = Microsoft.VisualBasic.Asc(c)
		resultado = Microsoft.VisualBasic.Chr(_asc + 32)
		'End If

		Return resultado
	End Function

	
End Class
